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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

OFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
10N OF rae ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
pP 


R 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
compokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: 

Used by BOOTS8 and FILEREAD 
ABSTRACT: 

: Converts an ASCII s fring file name, type, and version number 

; to a 6-word RADSO f name and type, and a 16-bit binary 

s version number. 

; ENVIRONMENT : 

any 

; AUTHOR: 

: Carol Peters 22 March 1979 

3 Extracted from the Release 1 module FILEREAD.MAR; al! 

; code and definitions are unchanged from Release 1 form. 


; ; MODIFIED BY: 
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00 v03-002 LJK0254 Lawrence J. K 6-Dec-1983 
: Change LIBSCVT_DT Bt ° Fil $CVvT “OTB. 

0 v03-001 TCM0001 culy C. Matthews 15-Nov-1982 
09 Added G* to Py to LIBSCVT_DTB. 
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23 -SBTTL DECLARATIONS 

61; 

és : Include files 

65 SSSDEF 

i 

O7 3 

63 ; Equated symbols 

i LCA = *0141 

7 LCZ = *0172 

7 UCA = apts 

74 ucz = *0132 

75 ZERO = *060 

7 NINE = *071 

7 DOT = *056 

78 SEMI s *073 

$0 

i : PSECT declaration 

8 a 

84 -PSECT YFILEREAD,BYTE,EXE 


AX/VMS Macr 
SYS.SRCICV 
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le} 
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3; Status code definitions 
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CVTF ILNAM - Converts ASCII to RADSO 15-SEP-1984 758:44 VAX/VMS M v04-00 p 
youe000 CVEFIUNAR = CONVERT FILENAME FROM ASCIZ ‘SaSEp=19R6 OSictiog FORCES Maceo vot OO ky | Pase 8, 
$ .SBTTL CVTFILNAM = CONVERT FILE NAME FROM ASCII TO RADSO 
34 
5 ; FUNCTIONAL DESCRIPTION: 
91 : THIS ROUTINE CONVERTS THE ASCII FILE NAME (NAME, TYPE, VERSION) 
0 92 ; TO THE FILE NAME BLOCK FORM OF 3 WORDS RADSO NAME, 1 WORD OF TYPE 
99 33 ; AND 1 WORD OF VERSION. 
09 99 : CALLING SEQUENCE: 
99 3 ; CALLG ARGLIST,FILSCVTFILNAM 
9000 Bi : INPUT PARAMETERS: 
9000 10 : FILNAM(AP) = :STRING DESCRIPTOR OF FILE NAME STRING 
00 1 : ; FILNAMBLK(AP) = SADDRESS OF 5 WORD BLOCK 
000 103: 3 WORD RADSO FILE NAME 
0000 104 : 1 WORD RADSO FILE TYPE 
9000 195 1 WORD BINARY VERSION 
0000 199 : IMPLICIT INPUTS: 
0000 108 : 
0000 109: NONE 
0000 110: 
0000 111 : OUTPUT PARAMETERS: 
0000 118 ; 
0000 113: RO = SYSTEM STATUS CODE 
0000 114: FILNAME BLOCK FILLED IN 
0000 115: 
0000 116 : IMPLICIT OUTPUTS: 
0000 117; 
0000 118; NONE 
0000 119: 
0000 120 : COMPLETION CODES: 
0000 121; 
0000 188 : SS$_NORMAL SUCCESSFUL COMPLETION 
9000 1g3 ; 5S$~BADF ILENAME SYNTAX ERROR IN FILE NAME 
0000 125 : SIDE EFFECTS: 
0000 (1 $ ; 
0000 127: NONE 
000 128: 
6 ; ; EQUATED SYMBOLS: 
1: OFFSETS FROM AP 
90000004 9 1 § ; FILNAM = 4 ;DESCRIPTOR OF ASCII FILE NAME STRING 
00000008 4 F ILNAMBLK = 8 TADDRESS OF 5 WORD FILE NAME BLOCK 
8 6 ; OFFSETS FROM FP 
FFFFFFFD 1 8 . TYPE = -3 sBEGINNING OF TYPE FIELD 
FFEFFFFFG 139 NAME = -12 ‘BEGINNING OF NAME FIELD 
141 :-- 
142 


SS - - } — 


TFILNAM = Converts ASCII to RADSO 15-SEP-1984 23:58:44 VAX/VMS Macro v04-00 Pa | D 
. abo CVTIFILNAM = CONVERT FILE NAME FROM ASCII §-SEP-1984 83:2 :08 (CSYS.SRCICVTFILNAM.MAR; 1 - a ve 
143 FILSCVTFILNAM: : | 
007¢ 44 «WORD “M<R2,R3,R4,R5,R6> 
ee 14 éLra 0s =( SP) ;RESERVE AND ZERO A | 
7E ps 146 CLRL = = (SP) $12 BYTE NAME STRING 
55 04 BC D 2 6 14 MOVQ @F ILNAMC(AP) ,RS sR5 = SIZE, R6 = ADR OF STRING 
54 F4 AD 3 A 148 MOVAB NAME(FP),R4 : ADDRESS TO STORE NAME 
53 09 D 6 14 MOVL #9,R3 [UP TO 9 CHARACTERS 
FO 131 BRB 40$ 
81 1 : 3 STORE UP TO 9 CHARACTERS OF RADSO IN THE BYTE ARRAY ADDRESSED BY R4 
4 13 t IN PREPARATION FOR CONVERTING INTO THE PACKED RADSO FORMAT | 
; 
1 155 208: 
50 86) | 90 tt 136 é MOVB = (R6) +, RO :GET THE NEXT CHARACTER 
50 2 «91 0016 15 CMPB ss #DOT,, RO : T ? 
oC 13 001 138 BEQL FILETYPE [BRANCH IF YES 
so. 3BCO9 at 15 CMPB Os #SEMI,R [1S IT A SEMICOLON 
24 13 001 160 BEQL VERSION ‘BRANCH IF YES 
9 10 00 : 18 ne BSBB STORERSOBYTE [CONVERT AND STORE THE CHARACTER 
1 ; OBGEQ R5,20$ :COUNT THE CHARACTERS IN THE STRING 
” 3? Y 09 3 184 aH , BULLDFNB TEND OF STRING, NO TYPE, NO VERSION 
90 f 166 : NOW SET UP THE 3 BYTE ARRAY OF FILE TYPE 
027 168 FILETYPE: 
4 FDAD 9 0) 7 169 MOVAB TYPE(FP),R4 ;ADDRESS OF BYTE ARRAY 
, 53 03 06 00 170 MOVL #5,R3 ‘MAX SIZE OF FILE TYPE 
7 : 
50 86 «90 09 9 158 - MOVB = (R6) +, RO :GET NEXT CHARACTER 
50 8 91 03 174 CMPB Os #SEMI.RO :1S IT A SEMICOLON? 
0c 13 0036 175 BEQL VERSION [BRAN 
50 2 91 038 126 CMPB  =s-s#DOT, RO [DOT FOR VERSION TOO 
07 13 0 17 BEQL VERSION TBRANCH IF VERSION DELIMITER 
c 610 03D 178 ie BSBB = STORERSOBYTE [CONVERT AND STORE THE BYTE 
z OBGEQ R5,20$ ;LOOP THROUGH THE CHARACTERS 
™ 3 fy 0042 ; Sree BoicorNe [END OF STRING, NO VERSION 
doce : VERSION DELIMITER FOUND, CONVERT THE VERSION 
0044 185 VERSION: 
# NAMBLK(AP),-(SP) ;ADDRESS TO STORE VERSION 
comes Hs FR SE. RNS HE ctilaces vn Sutra Maa atu MelSQ SECU 
e LL a & ® 
aero OFA 9 £8 O8§ 5 BLBC RO.BADFILNAM™ ‘BRANCH IF BAD FILE NAME 
O86 1% t NOW PACK THE TEMPORARY BYTE STRING INTO THE RADSO WORDS 
FNB: 
54 08 AC v0 28 132 BUILD Bove FILNAMBLK(AP) ,R4 SADDRESS TO STORE PACKED RADSO 
53 ORG A SA 195 MOVAB NAME(FP),R3 SADDRESS OF NAME STRING 
4 $5 SE 19 TSTB TANY NAME GIVEN? 
BBS RR tha SEY let em 
4 18 64 199 BSBB PACE Rap ao [2ND 3 CHARACTERS 


escan 


BS 


22 


58 ED AD 
: 


N 14 


BSBB = PACKRADSO 

ADDL3 #302 Fl NARBLK CAP) , R4 

NOVAB pe CFP 
ibe 

BSBB = PACKRADSO 

MOVZWL #SS$_NORMAL,RO 

RET 


AX/VMS Macro Vv04-00 


0 a es tbs 9 33:3 244 
LE NAME FROM ASCII -SEP-1984 741:08 SYS.SRCICVTF ILNAM.MAR; 1 
33RD 3 CHARACTERS 


Herts FH TO STORE rite TYPE 

ADDRESS OF TYPE STRING 
PANY FILE a PRESENT? 
;BRANCH IF | 


;CONVERT 3 CHARACTERS 
s INDICATE SUCCESS 


me 


<9 


OUTPUT: 


aa IF SUCCESSFUL, RET WITH ERROR CODE IN RO IF ERROR 
R3, R4 UPDATED TO REFLECT THE ADDITIONAL BYTE STORED 


B 15 
vo4-000 STORERSOGTTE = CONVERT AND STORE ASCII 8 'S-SEP=1986 O8:c1:08 [evSvencievTFiLNamcmar:1 2° <8, 
78 0 -SBTTL STORERSOBYTE = CONVERT AND STORE ASCII BYTE TO RADSO 
A FUNCTIONAL DESCRIPTION: 
A : CONVERT ASCII BYTE TO RADSO AND STORE IN THE SPECIFIED BYTE ARRAY 
A CALLING SEQUENCE: 
: BSBB STORERSOBYTE 
INPUT: 
} RS : ST7e OF BYTE ARRAY TO STORE IN 
; R4 = ADDRESS OF BYTE ARRAY TO STORE IN 
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.ENABL LSB 
STORERSOBYTE: 
26 10 BSBB ASCII TORADSO ; CONVERT TO RADSO 
06 53 F4 BADF ILNASeeeE® R3,208 ‘BRANCH IF ROOM TO STORE THIS CHARACTER 
50 0818 8F 3¢ MOVZUL #SS$_BADF ILENAME ,RO ;RETURN ERROR CODE 
20$: 
8 50 90 MOVB RO, (R4)+ sSTORE IT 
05 RSB SAND RSB SUCCESSFULLY 
.DSABL LSB 


¢ 15 
o RADSO 15=SEP=1984 23:58:44 YAX/VMS Macro V04-00 p 
SBT TES OF RADSO CHARAC ‘S-SEP=1984 03:21:08 CVTF age Of 


ee -SBTTL PACKRADSO = PACK 3 BYTES OF RADSO CHARACTERS INTO A WORD 
; FUNCTIONAL DESCRIPTION: 

PACK 3 BYTES OF RADSO CHARACTERS INTO A WORD 
CALLING SEQUENCE: 

BSBB PACKRADSO 
INPUTS: 

R3 = RADSO BYTE STRING ADDRESS 

ESS OF 


estan sft 


Fes 


or 
w 

8 
> 


SOO 0.60 69.00.00 60.60 G0 G9. G9.G9.G0.G9.000000 00 CD GOGOGDGIGIGDGDCD WN 
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R4 = ADDRES WORD ARRAY TO STORE IN 
: OUTPUTS: 
R3 UPDATED TO POINT TO NEXT GROUP OF 3 CHARACTERS 
R4 UPDATED TO POINT AT NEXT WORD TO STORE IN 
PACKRADSO: 
50 83 9A MOVZBL (R3)+,RO ;BUILD PACKED WORD IN RO 
50 0640 BF A MULW = #40*46,,RO :START ACCUMULUATING IN RO 
51 83 9A MOVZBL (R3)+,R1 ‘SECOND CHARACTER TO TEMP 
51 28 AG MULW #40, R14 ‘MULTIPLY BY THE RADIX 
50 51 AO ADDW sR SAND ACCUMULAT 
51 83 9A 0098 MOVZBL (R3)+,R1 ‘LAST CHARACTER 
84 50° 51 al H: ADDWS R1,RO, (R4)+ SACCUMULATE AND STORE RESULT 


SYS.SRCICVTFILNAM.MAR; 1 (5) 
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V O60 ASCIITORADSO = CONVERT ASCII CHARACTER :" -SEP=1 1382 88:2 Heys SRCTCVTSILNAM OMAR: 1 a 
A 0. pe .SBTTL ASCIITORADSO = CONVERT ASCII CHARACTER TO RADSO 
A ¢ i t FUNCTIONAL DESCRIPTION: 
A 4 i CONVERT ASCII CHARACTER TO ITS RADSO EQUIVALENT 
A § : CALLING SEQUENCE: 
A Bi ; BSBB ASCII TORADSO 
oh 0 INPUTS: 
OA $8 : RO = CHARACTER TO CONVERT 
3 34 : ouTpuTs: 
0A 36 | : RSB IF psec ESD vac ent RET WITH ERROR CODE IN RO IF ERROR 
O0A 97 : RO = RADSO EQUIVALE 
O0A 98 : R1,R2,R3 PRESERVED 
00A 99 ; 
boas 30h 
OA g ASCIITORADSO: 
7A 8F 50 91 OOA CMPB. Ss RO, MLZ sLOWER CASE ALPHA? 
D7 «-1A—=«OOA7 4 BGTRU  BADFILNAM :BRANCH IF BAD RADSO 
61 8F 50 91 OOA9 305 CMPB —s- RO, #LCA 
05 19 OOAD 06 BLSS 108 ; BRANCH IF NOT 
50 60 BF Be Oat SUBB ss #LCA=1, RO [CONVERT TO A 
ites 08 on RSB TAND RETURN SUCCESSFULLY 
SA 8F SO 91 0086 310  CMPB-_ RO,#uCZ SUPPER CASE ALPHA? 
C6 4614 «0088 = «311 BGTR BASF IL NAM ‘BRANCH IF BAD RADSO 
41 8F 50 91 OOBA 1 CMPB = RO, #UCA 
05 19 O0BE 1 BLSS 20 ;BRANCH IF NOT ALPHA 
50 40 8F Be 00¢ 14 SUBB  -« #UCA=1,RO :CONVERT TO RADSO ALPHA 
0 00C4 13 ad RSB [AND RETURN SUCCESSFULLY 
39 50 91 00C5 317 °° °&°® °&#&«CMPB  RO,#NINE ;NUMERIC? 
86 14 00C8 318 BGTR  BADFILNAM ‘BRANCH IF BAD RADSO 
30 50 91 OOCA 319 CMPB —s- RO, #ZERO 
81 19 00CD 0 BLSS  BADFILNAM :BRANCH IF BAD RADSO 
50 (12 Be OCF 1 SUBB = #ZERO-30,R0 [CONVERT TO RADSO NUMERIC 
0 5 g RSB SAND RETURN SUCCESSFULLY 
D 4 
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Symbol table rant at 9 83:29:68 HONS SRCICVTSILNAM MARS 1 ° 
ASCIITORADSO A3 R 
BADF ILNAM R 
BUILDFNB R 
DOT 2 sf 
FILSCVTFILNAM RG 
FILSCVT_DT geereree x 
FILETYPE 7R 
FILNAM = 4 
F ILNAMBLK = 8 
LCA = 1 
LCZ = 00 A 
NAME = FFFFFFFS 
NINE = HS EH 
PACKRADSO 0 45 R 02 
SEM = 00000 8 
SS$_BADF ILENAME = 0000081 
SS$_ NORMAL = 44 
STORERSOBYTE 000078 R 02 
TYP = FFFFFFFD 
tae = 00000041 

ucz = QQ000005A 
VERSION 00000044 R 02 
ZERO = 00000030 

toon eer nanan ae ome + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
> ‘ 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON’ ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
SABSS$ 0000000 ( 0.) 1¢( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
YF ILEREAD 000000D3 ¢ 211.) 02¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
ee a TN 
! ; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 :00: +08. 07 0:00:01.18 
Command processing 105 80; 0.47 B08 0824 
os sane ‘ 198 : ¢F 0:00:15.83 

m able sor 7:00:00. 

poss 2 6b "Bi 00:00:02:58 
ae table output 4 .04 0:00:00.04 
Psect synopsis output 1 8. 3 0:00:00.04 
Cross-reference output .00 0:00: 9-90 
Assembler run totals 40 0: 0: 31 0:00:23.71 


The working set Limit was 1200 pages 

22998 bytes (45 pages) of virtual memory were used to buffer the intermediate gege. 

There were 30 pages of symbol table space allocated to hold 428 non-local ane 9 Local symbols. 
24 source Lines were read in Pass 1, produc cing 13 object records in Pass 

pages of virtual memory were used to define 7 macros. 
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VAX=-11 Macro Run Statistics 
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! Macro Library statistics ; 


maaan sae ese or eee s eee eee we 


Macro Library name Macros defined 


~$233$0UA28: [$1.08 JLIB.MLB;1 0 
$255$DUA28: (SYSLIBJSTARLET.MLB;2 4 
TOTALS (all Libraries) 4 


469 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
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